home *** CD-ROM | disk | FTP | other *** search
/ The Rolling Stones: Shine a Light (Press Kit) / Shine a Light (Press Kit).iso / pc / program.dxr / Internal_29_Save & Write Full.ls < prev    next >
Encoding:
Text File  |  2008-03-03  |  14.4 KB  |  261 lines
  1. global gphotolist, gSvFile, gLF, dLM, gMegs
  2.  
  3. on enterFrame me
  4.   if gphotolist = [] then
  5.     nothing()
  6.   else
  7.     Fdr = xtra("Filextra4").new()
  8.     Fdr.fx_FolderExists(gSvFile)
  9.     Fdr.fx_FolderCreate(gSvFile)
  10.     freeRoom = baDiskInfo(gSvFile, "Free")
  11.     freemegs = freeRoom / 1024
  12.     if freemegs < gMegs then
  13.       baDeleteFolder(gSvFile)
  14.       go("StopHere")
  15.     else
  16.       nothing()
  17.     end if
  18.   end if
  19. end
  20.  
  21. on handlerlist
  22.   sort(gphotolist)
  23.   image01 = "BLR-11"
  24.   image02 = "BLR-12"
  25.   image03 = "KM-014"
  26.   image04 = "KM-067"
  27.   image05 = "JC-001"
  28.   image06 = "JC-009"
  29.   image07 = "JC-012R"
  30.   image08 = "KM-041"
  31.   image09 = "KM-079"
  32.   image10 = "JC-005"
  33.   image11 = "JC-016"
  34.   image12 = "JC-017"
  35.   image13 = "SAL-KeyArt-2"
  36.   image14 = "SAL-KeyArt-3"
  37.   image15 = "SAL-KeyArt-3x"
  38.   image16 = "C-00355R"
  39.   image17 = "C-00240CROP"
  40.   image18 = "C-02630CROP"
  41.   image19 = "C-01364"
  42.   image20 = "C-FX-0003R"
  43.   image21 = "C-FX-00023"
  44.   image22 = "C-00439CROP"
  45.   image23 = "C-02805CROP"
  46.   image24 = "C-01086R"
  47.   image25 = "C-PREPRO-01166RCROP"
  48.   image26 = "C-KeyArt-1"
  49.   image27 = "C-KeyArt-2"
  50.   image28 = "C-KeyArt-3"
  51.   image29 = "C-09238C"
  52.   image30 = "FBP-09232"
  53.   image31 = "HK-KeyArt-1"
  54.   image32 = "HK-KeyArt-2"
  55.   image33 = "HK-KeyArt-3"
  56.   image34 = "T-37283"
  57.   image35 = "T-37283"
  58.   image36 = "T-40476"
  59.   image37 = "HK-KeyArt-1"
  60.   image38 = "HK-KeyArt-2"
  61.   image39 = "T-KeyArt-3"
  62.   image40 = "T-00853"
  63.   image41 = "T-09258"
  64.   image42 = "T-00718"
  65.   image43 = "T-KeyArt-1"
  66.   image44 = "T-KeyArt-2"
  67.   image45 = "T-KeyArt-3"
  68.   image46 = "T-KeyArt-2"
  69.   image47 = "T-KeyArt-3"
  70.   image48 = "T-08539"
  71.   image49 = "T-09367"
  72.   image50 = "T-00853"
  73.   repeat with i = 1 to gphotolist.count
  74.     Downloads = getAt(gphotolist, i)
  75.     xyz = the moviePath
  76.     origFile = xyz & "Images" & dLM
  77.     case Downloads of
  78.       "C01":
  79.         go("DL1")
  80.         Ok = baCopyFileProgress(origFile & image01 & ".tif", gSvFile & image01 & ".tif", "always", "Saving...", "Cancel", 32)
  81.       "C02":
  82.         go("DL2")
  83.         Ok = baCopyFileProgress(origFile & image02 & ".tif", gSvFile & image02 & ".tif", "always", "Saving...", "Cancel", 32)
  84.       "C03":
  85.         go("DL3")
  86.         Ok = baCopyFileProgress(origFile & image03 & ".tif", gSvFile & image03 & ".tif", "always", "Saving...", "Cancel", 32)
  87.       "C04":
  88.         go("DL4")
  89.         Ok = baCopyFileProgress(origFile & image04 & ".tif", gSvFile & image04 & ".tif", "always", "Saving...", "Cancel", 32)
  90.       "C05":
  91.         go("DL5")
  92.         Ok = baCopyFileProgress(origFile & image05 & ".tif", gSvFile & image05 & ".tif", "always", "Saving...", "Cancel", 32)
  93.       "C06":
  94.         go("DL6")
  95.         Ok = baCopyFileProgress(origFile & image06 & ".tif", gSvFile & image06 & ".tif", "always", "Saving...", "Cancel", 32)
  96.       "C07":
  97.         go("DL7")
  98.         Ok = baCopyFileProgress(origFile & image07 & ".tif", gSvFile & image07 & ".tif", "always", "Saving...", "Cancel", 32)
  99.       "C08":
  100.         go("DL8")
  101.         Ok = baCopyFileProgress(origFile & image08 & ".tif", gSvFile & image08 & ".tif", "always", "Saving...", "Cancel", 32)
  102.       "C09":
  103.         go("DL9")
  104.         Ok = baCopyFileProgress(origFile & image09 & ".tif", gSvFile & image09 & ".tif", "always", "Saving...", "Cancel", 32)
  105.       "C10":
  106.         go("DL10")
  107.         Ok = baCopyFileProgress(origFile & image10 & ".tif", gSvFile & image10 & ".tif", "always", "Saving...", "Cancel", 32)
  108.       "C11":
  109.         go("DL11")
  110.         Ok = baCopyFileProgress(origFile & image11 & ".tif", gSvFile & image11 & ".tif", "always", "Saving...", "Cancel", 32)
  111.       "C12":
  112.         go("DL12")
  113.         Ok = baCopyFileProgress(origFile & image12 & ".tif", gSvFile & image12 & ".tif", "always", "Saving...", "Cancel", 32)
  114.       "C13":
  115.         go("DL13")
  116.         Ok = baCopyFileProgress(origFile & image13 & ".tif", gSvFile & image13 & ".tif", "always", "Saving...", "Cancel", 32)
  117.       "C14":
  118.         go("DL14")
  119.         Ok = baCopyFileProgress(origFile & image14 & ".tif", gSvFile & image14 & ".tif", "always", "Saving...", "Cancel", 32)
  120.       "C15":
  121.         go("DL15")
  122.         Ok = baCopyFileProgress(origFile & image15 & ".tif", gSvFile & image15 & ".tif", "always", "Saving...", "Cancel", 32)
  123.       "C16":
  124.         go("DL16")
  125.         Ok = baCopyFileProgress(origFile & image16 & ".tif", gSvFile & image16 & ".tif", "always", "Saving...", "Cancel", 32)
  126.       "C17":
  127.         go("DL17")
  128.         Ok = baCopyFileProgress(origFile & image17 & ".tif", gSvFile & image17 & ".tif", "always", "Saving...", "Cancel", 32)
  129.       "C18":
  130.         go("DL18")
  131.         Ok = baCopyFileProgress(origFile & image18 & ".tif", gSvFile & image18 & ".tif", "always", "Saving...", "Cancel", 32)
  132.       "C19":
  133.         go("DL19")
  134.         Ok = baCopyFileProgress(origFile & image19 & ".tif", gSvFile & image19 & ".tif", "always", "Saving...", "Cancel", 32)
  135.       "C20":
  136.         go("DL20")
  137.         Ok = baCopyFileProgress(origFile & image20 & ".tif", gSvFile & image20 & ".tif", "always", "Saving...", "Cancel", 32)
  138.       "C21":
  139.         go("DL21")
  140.         Ok = baCopyFileProgress(origFile & image21 & ".tif", gSvFile & image21 & ".tif", "always", "Saving...", "Cancel", 32)
  141.       "C22":
  142.         go("DL22")
  143.         Ok = baCopyFileProgress(origFile & image22 & ".tif", gSvFile & image22 & ".tif", "always", "Saving...", "Cancel", 32)
  144.       "C23":
  145.         go("DL23")
  146.         Ok = baCopyFileProgress(origFile & image23 & ".tif", gSvFile & image23 & ".tif", "always", "Saving...", "Cancel", 32)
  147.       "C24":
  148.         go("DL24")
  149.         Ok = baCopyFileProgress(origFile & image24 & ".tif", gSvFile & image24 & ".tif", "always", "Saving...", "Cancel", 32)
  150.       "C25":
  151.         go("DL25")
  152.         Ok = baCopyFileProgress(origFile & image25 & ".tif", gSvFile & image25 & ".tif", "always", "Saving...", "Cancel", 32)
  153.       "C26":
  154.         go("DL26")
  155.         Ok = baCopyFileProgress(origFile & image26 & ".tif", gSvFile & image26 & ".tif", "always", "Saving...", "Cancel", 32)
  156.       "C27":
  157.         go("DL27")
  158.         Ok = baCopyFileProgress(origFile & image27 & ".tif", gSvFile & image27 & ".tif", "always", "Saving...", "Cancel", 32)
  159.       "C28":
  160.         go("DL28")
  161.         Ok = baCopyFileProgress(origFile & image28 & ".tif", gSvFile & image28 & ".tif", "always", "Saving...", "Cancel", 32)
  162.     end case
  163.   end repeat
  164.   CopyrightText1 = "Paramount Classics in Association with Concert Productions International and Shangri-La Entertainment Presents A Martin Scorsese Picture  " && QUOTE & "Shine A Light." & QUOTE && "starring Mick Jagger, Keith Richards, Charlie Watts and Ronnie Wood. The film is directed by Martin Scorsese. The producers are Victoria Pearman, Michael Cohl, Zane Weiner and Steve Bing. The executive producers are Mick Jagger, Keith Richards, Charlie Watts and Ronnie Wood. This film has been rated PG-13 for brief strong language, drug references and smoking."
  165.   CopyrightText2 = "¬© 2008 by Brigitte Lacombe. All Rights Reserved"
  166.   CopyrightText3 = "¬© 2008 by WPC Piecemeal, Inc. All Rights Reserved."
  167.   CopyrightText4 = "¬© 2008 by RST Concerts, Inc. All Rights Reserved."
  168.   put the long date into member "Caption Text"
  169.   put gLF after member "Caption Text"
  170.   put the time after member "Caption Text"
  171.   put gLF & "Location of the saved files is " & gSvFile after member "Caption Text"
  172.   put gLF & gLF & gLF after member "Caption Text"
  173.   put "********************" after member "Caption Text"
  174.   put gLF after member "Caption Text"
  175.   put "NOTE: Fully formatted captions in both MS Word and Adobe Acrobat formats are available on the" && QUOTE & "Shine A Light" & QUOTE && "CD in the 'Captions' Folder." after member "Caption Text"
  176.   put gLF after member "Caption Text"
  177.   put "********************" after member "Caption Text"
  178.   put gLF & gLF & gLF after member "Caption Text"
  179.   put "You have saved the following files to your hard drive:" after member "Caption Text"
  180.   put gLF after member "Caption Text"
  181.   put gLF after member "Caption Text"
  182.   if baFileExists(gSvFile & image01 & ".tif") then
  183.     put image01 & "                                 Photo Credit:    Brigitte Lacombe " & gLF after member "Caption Text"
  184.     put "(Left to right) Charlie Watts, Keith Richards, Director Martin Scorsese, Mick Jagger and Ronnie Wood backstage during filming of the Rolling Stones concert film  " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  185.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  186.     put gLF & gLF & gLF & gLF after member "Caption Text"
  187.   end if
  188.   if baFileExists(gSvFile & image02 & ".tif") then
  189.     put image02 & "                                 Photo Credit:    Brigitte Lacombe " & gLF after member "Caption Text"
  190.     put "(Left to right) Keith Richards, Charlie Watts, Director Martin Scorsese, Mick Jagger and Ronnie Wood backstage during filming of the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  191.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  192.     put gLF & gLF & gLF & gLF after member "Caption Text"
  193.   end if
  194.   if baFileExists(gSvFile & image03 & ".tif") then
  195.     put image03 & "                                Photo Credit: Kevin Mazur " & gLF after member "Caption Text"
  196.     put "(Left to right) Mick Jagger, Ronnie Wood, Keith Richards and Charlie Watts, onstage at the Beacon Theater for the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  197.     put CopyrightText3 & gLF & gLF & gLF & gLF after member "Caption Text"
  198.     put gLF & gLF & gLF & gLF after member "Caption Text"
  199.   end if
  200.   if baFileExists(gSvFile & image04 & ".tif") then
  201.     put image04 & "                                 Photo Credit: Kevin Mazur " & gLF after member "Caption Text"
  202.     put "(Left to right) Ronnie Wood, Charlie Watts, Mick Jagger and Keith Richards performing onstage at the Beacon Theater during the Rolling Stones concert film  " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  203.     put CopyrightText3 & gLF & gLF & gLF & gLF after member "Caption Text"
  204.     put gLF & gLF & gLF & gLF after member "Caption Text"
  205.   end if
  206.   if baFileExists(gSvFile & image05 & ".tif") then
  207.     put image05 & "                               Photo Credit: Jacob Cohl " & gLF after member "Caption Text"
  208.     put "(Left to right) Ronnie Wood, Charlie Watts, Mick Jagger and Keith Richards performing onstage at the Beacon Theater during the Rolling Stones concert film  " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  209.     put CopyrightText4 & gLF & gLF & gLF & gLF after member "Caption Text"
  210.     put gLF & gLF & gLF & gLF after member "Caption Text"
  211.   end if
  212.   if baFileExists(gSvFile & image06 & ".tif") then
  213.     put image06 & "                                 Photo Credit: Jacob Cohl " & gLF after member "Caption Text"
  214.     put "(Left to right, rear) Charlie Watts, Ronnie Wood and Keith Richards perform with Jack White III (front, left) and Mick Jagger (front, right) at the Beacon Theater during the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  215.     put CopyrightText4 & gLF & gLF & gLF & gLF after member "Caption Text"
  216.     put gLF & gLF & gLF & gLF after member "Caption Text"
  217.   end if
  218.   if baFileExists(gSvFile & image07 & ".tif") then
  219.     put image07 & "                                 Photo Credit: Jacob Cohl " & gLF after member "Caption Text"
  220.     put "(Left to right, rear) Charlie Watts, Ronnie Wood and Keith Richards perform with Buddy Guy (front, left) and Mick Jagger (front, right) at the Beacon Theater during the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  221.     put CopyrightText4 & gLF & gLF & gLF & gLF after member "Caption Text"
  222.     put gLF & gLF & gLF & gLF after member "Caption Text"
  223.   end if
  224.   if baFileExists(gSvFile & image08 & ".tif") then
  225.     put image08 & "                                 Photo Credit: Kevin Mazur " & gLF after member "Caption Text"
  226.     put "Christina Aguilera (left) and Mick Jagger performing onstage at the Beacon Theater during the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  227.     put CopyrightText3 & gLF & gLF & gLF & gLF after member "Caption Text"
  228.     put gLF & gLF & gLF & gLF after member "Caption Text"
  229.   end if
  230.   if baFileExists(gSvFile & image09 & ".tif") then
  231.     put image09 & "                                 Photo Credit: Kevin Mazur " & gLF after member "Caption Text"
  232.     put "(Left to right) Buddy Guy, Keith Richards and Charlie Watts performing onstage at the Beacon Theater during the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  233.     put CopyrightText3 & gLF & gLF & gLF & gLF after member "Caption Text"
  234.     put gLF & gLF & gLF & gLF after member "Caption Text"
  235.   end if
  236.   if baFileExists(gSvFile & image10 & ".tif") then
  237.     put image10 & "                                Photo Credit: Jacob Cohl " & gLF after member "Caption Text"
  238.     put "The Rolling Stones, their back-up musicians and singer and special guest performers take their bows on the stage of the Beacon Theater after their performance in the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  239.     put CopyrightText4 & gLF & gLF & gLF & gLF after member "Caption Text"
  240.     put gLF & gLF & gLF & gLF after member "Caption Text"
  241.   end if
  242.   if baFileExists(gSvFile & image11 & ".tif") then
  243.     put image11 & "                                 Photo Credit: Jacob Cohl" & gLF after member "Caption Text"
  244.     put "(Left to right) Mick Jagger, director of photography Robert Richardson, ASC and director Martin Scorsese backstage at the Beacon Theater while filming the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  245.     put CopyrightText4 & gLF & gLF & gLF & gLF after member "Caption Text"
  246.     put gLF & gLF & gLF & gLF after member "Caption Text"
  247.   end if
  248.   if baFileExists(gSvFile & image12 & ".tif") then
  249.     put image12 & "                                 Photo Credit: Jacob Cohl" & gLF after member "Caption Text"
  250.     put "Keith Richard (left) and director Martin Scorsese (right) backstage at the Beacon Theater while filming the Rolling Stones concert film " && QUOTE & "Shine A Light." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  251.     put CopyrightText4 & gLF & gLF & gLF & gLF after member "Caption Text"
  252.     put gLF & gLF & gLF & gLF after member "Caption Text"
  253.   end if
  254. end
  255.  
  256. on exitFrame
  257.   handlerlist()
  258.   dsk = 0
  259.   go("WriteCap")
  260. end
  261.